1 DATA96,0,240,0,248,0,124,0,62,8,31,20,14,164,4,72,10,16,25,16,37,16,82,16,76,8
2 DATA40,4,16,2,12,1,3,130,0,124,0,0,0,0,0,0:PRINT"[147]":X$="            ":R=0
3 RESTORE:FORI=0TO60STEP3:READA,B:POKE832+I,A:POKE833+I,B:POKE834+I,0:NEXT:POKE2040,13
4 Z$=X$+"    ":PRINTZ$"[176][192][178][192][178][192][174]":B$="[194][209][194][209][194][209][194]":PRINTZ$B$:C$=Z$+"[171][192][219][192][219][192][179]":PRINTC$:PRINTZ$B$:PRINTX$;
5 PRINT"[176][192][178][192][219][192][219][192][219][192][219][192][178][192][174]":PRINTX$B$"[209]"B$:D$=X$+"[171][192][219][192][219][192][219][192][219][192][219][192][219][192][179]":PRINTD$:PRINTX$B$" "B$:PRINTD$:PRINTX$;
6 PRINTB$"[209]"B$:PRINTX$"[173][192][177][192][219][192][219][192][219][192][219][192][177][192][189]":PRINTZ$B$:PRINTC$:PRINTZ$B$:PRINTZ$"[173][192][177][192][177][192][189]":PRINT:PRINT" N=NEUES SPIEL"
7 V=53248:POKEV+21,1:POKEV+39,3:X=181:Y=153:POKEV,X:POKEV+1,Y:YA=Y:XA=X:N=137:M=169
8 Y=YA:X=XA:A=127-PEEK(56320):GETZ$:IFZ$="N"THEN2
9 IFA<>1ANDA<>2ANDA<>4ANDA<>8ANDA<>16THEN8
10 IFA<4THENY=Y+16*SGN(A-1.5):IF(Y<105ORY>201)OR((X<165ORX>197)AND(Y<137ORY>169))THEN8
11 IFA<9ANDA>2THENX=X+16*SGN(A-5):IF(X<133ORX>229)OR((X<165ORX>197)AND(Y<NORY>M))THEN8
12 IFA<16THENPOKEV,X:POKEV+1,Y:XA=X:YA=Y:GOTO8
13 Q=983+(X-21)/8+(Y-49)*5:L=32
14 IF(E=0ANDPEEK(Q)=32)OR(PEEK(Q)=81AND(EOR(X=XSANDY=YS)))THEN8
15 IFE=0THENPOKEQ,42:E=1:XS=X:YS=Y:FORTY=1TO250:NEXT:GOTO8
16 IFPEEK(Q)=42THENPOKEQ,81:E=0:XS=X+1:YS=Y+1:FORTY=1TO250:NEXT:GOTO8
17 IF(XS+L=XORXS=XORXS-L=X)AND(YS+L=YORYS=YORYS-L=Y)THENXZ=(X+XS)/2:YZ=(Y+YS)/2:P=1
18 W=983+(XZ-21)/8+(YZ-49)*5:K=983+(XS-21)/8+(YS-49)*5:IFP=0ORPEEK(W)<>81THEN8
19 POKEQ,81:POKEK,32:POKEW,32:E=0:R=R+1:IFR=31THENPRINT:PRINT" BRAVO!":PRINT" SPACE[146]":WAIT203,32:GOTO2
20 GOTO8
0